From b80307b321fc04b472acb07fcf9298b4fdfbd2fd Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 23 Apr 2001 14:20:55 +0000 Subject: [PATCH] (calendar-two-frame-setup, calendar-only-one-frame-setup) (calendar-one-frame-setup): Use display-multi-frame-p instead of window-system. --- lisp/calendar/cal-x.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/cal-x.el b/lisp/calendar/cal-x.el index 7151671d722..3dae0e9c05b 100644 --- a/lisp/calendar/cal-x.el +++ b/lisp/calendar/cal-x.el @@ -70,7 +70,7 @@ Can be used to change frame parameters, such as font, color, location, etc.") (defun calendar-one-frame-setup (&optional arg) "Start calendar and display it in a dedicated frame together with the diary." - (if (not window-system) + (if (not (display-multi-frame-p)) (calendar-basic-setup arg) (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) (if (frame-live-p diary-frame) (delete-frame diary-frame)) @@ -98,7 +98,7 @@ Can be used to change frame parameters, such as font, color, location, etc.") (defun calendar-only-one-frame-setup (&optional arg) "Start calendar and display it in a dedicated frame." - (if (not window-system) + (if (not (display-multi-frame-p)) (calendar-basic-setup arg) (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) (let ((special-display-buffer-names nil) @@ -117,7 +117,7 @@ Can be used to change frame parameters, such as font, color, location, etc.") (defun calendar-two-frame-setup (&optional arg) "Start calendar and diary in separate, dedicated frames." - (if (not window-system) + (if (not (display-multi-frame-p)) (calendar-basic-setup arg) (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) (if (frame-live-p diary-frame) (delete-frame diary-frame)) -- 2.30.2